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!* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 
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* 
it THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ‘ 
' * 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. . 
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gap yi 
oe FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
003 i ABSTRACT: 
008 Find record by RRV, taking indirection if neccessary 
003 ! 
O08 ENVIRONMENT: 
005 VAX/VMS OPERATING SYSTEM 
004 inn 
004 
0043 ! 
Bee AUTHOR: Christian Saether CREATION DATE: 28-APR-78 13:21 
46 0046 1} 
47 0047 i MODIFIED BY: 
48 0048 i 
49 0049 ! v03-005 MCNO009 Maria del C. Nasr 31-Mar-1983 
20 6030 } More Linkages reorganization 
52 0052 i V03-004 MCNO008 _ Maria del C. Nasr 24-Feb-1983 
27 B87 Reorganize Linkages 
55 0055 i v03-003 TMKO0002 Todd M. Katz 30-Jan-1983 
56 0056 : Add support for Recovery Unit Journal ling and RU ROLLBACK 
57 0057 : Recovery of ISAM files. This involves making a change to one 
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1 
3 
of the error paths within RMSFIND_BY_R 
within a Recovery Unit, at some point 
file (after the Recovery Unit has term ed successfully) the 
pr var? data record that this RU_DELET RV points at m ght 

e deleted for good and its space reclaimed. If RMSFIND_BY_RRV 
were then to be called, a RRV error would be returned, and this 
is misleading. Therefore, when RMS isn't able to find the | 
age data record that an RRV points to, and after positioning 
ack to the RRV finds that it is marked RU_DELETE, return an 
error of RMS$_DEL after reclaiming the space occupied by the RRV 
if the file has been opened for write access. 
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in the history of the 
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KBT0291_ Keith B. Thompson 23-Aug-1982 
Reorganize psects 

TMKO001 Todd M. Katz 17-Mar-1981 
T™KO001 Todd 17-Mar-1981 


M. Katz 
In order to solve the SIDR deadlock problem, the cache 
flag CSH$SV_NOWAIT is set before this routine is called 
whenever we are attempting to access the primary data record 
by its RFA address from a SIDR. Therefore, the possibility 
exists that when we attempt to access the primary data bucket, 
we will recieve a record lock error in circumstances other than 
when the input parameter flag LOCK_ORIG caused the NOWAIT cache 
flag to be set when a an indirection. The current behavior 
assumes that the LOCK_ORIG bit is set under such circumstances, 
that we should release our lock on the RRV bucket, try (with 
waiting) for the primary data bucket, and then reclaim the 
lock on the RRV bucket. This is not the desirable behavior when 
our original bucket was a SIDR. Instead we want to immediately 
return a RLK error when one is encountered. Therefore, add a 
further restriction so that after RMSGETBLK has been called 
and an error of RLK returned, that the original bucket 
represented by the BDB whose address is in JRABCIRBSL_NEXTBDB) 
is not released, and another attempt is made to access the 
data record indirectly unless the input parameter flag 
LOCK_ORIG was also set. 


MCNOOO7— Maria del C. Nasr 27-Apr-1981 

Change input pecvasners to separate record identifier from 
lock flag. Also define macro to detect prologue version and 
use correct record id. 


MCNO006 Maria del C. Nasr 16-Mar-1981 
Increase size of record identifier to a word in the Local 
internal structures. 


REFORMAT K. E. Kinnear 23-Jul-1980 9:58 


REVISION HISTORY: 


v01-005 


v01-004 


W. Koents 4 _ 24-Oct-1978 8:40 
Make changes caused by sharing conventions. 


_ C. 0. Saether 29-Sep-1978 13:57 
Complete Rewrite. 
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14-Sep-19 01:23 RMS ..SRCJRMSFNDRRV.B32; 1 
; 199 8 ; : GLOBAL ROUTINE RMSFIND_BY_RRV (VBN, ID, FLAGS) : RLSRABREG_67 = 
; 196 0225 1 !++4 
: 0226 1! 
; 198 8 i FUNCTIONAL DESCRIPTION: 
; 166 0 $3 1 |! Using the VBN and ID passed as input parameters, search the 
3 6Yer 8s 0 1 ! bucket for the desired record. If the record found is an RRV, take 
; 168 0231 1 ! the indirection to the bucket pointed to after first releasing the 
; 169 Os e6 1 ! original bucket. Return with bucket accessed and REC_ADDR pointing 
; 109 O¢3? } , to the user data record. 
: \"¢ 0535 1! If the low bit of the FLAGS potengter is set (LOCK_ORIG), then the | 
‘hh ts 0236 1 ! original bucket is saved in NXTBDB and not released if the indirection 
3; (176 0237 1! is taken. 
3 6175 0238 1! 
: 176 0239 1 ! CALLING SEQUENCE: 
3; (177 0240 1! 
; 178 0241 1! RMSFIND_BY_RRV (VBN,1D,FLAGS) 
; 179 Bseg ; f 
; 180 0243 1 ! INPUT PARAMETERS: 
; «(181 0244 1! 
; «182 0245 1! VBN - of record to search for 
; 183 0246 1! ID = contains ID to search for — 4 
> «184 0247 1! FLAGS = Low bit (LOCK_ORIG) set if original | 
; 185 0248 1! bucket is to be retained if indirection taken 
; 186 0249 1! 
3 187 0250 1 ! IMPLICIT INPUTS: 
; «188 0251 1! 
3 13? Oe3¢ : COMMON_RABREG = registers used by GETBKT, GETNEXT_REC 
: Wi 0254 1 ! OUTPUT PARAMETERS: 
; 192 0255 1! 
; 193 0256 1! NONE 
; 194 0257 1! 
; 195 0258 1 ! IMPLICIT OUTPUTS: 
3; 196 0259 1! 
; 197 0260 1! REC_ADDR - address of record found — 
; «(198 0261 1! LPABEIFGSe_PLG VER] = prologue version 
; 199 0262 1! IRABCIRB$L_CURBDB) - address of current BDB, contains data record. 
: 200 0265 1! IRABCIRBS$L_NXTBDB) - address of BDB referencing original bucket, if 
: 201 0264 1! LOCK_ORIG specified and indirection taken 
3; 202 0265 1! otherwise not modified 
: 203 8s66 z. 
; 204 0267 1 ! ROUTINE VALUE: 
: 205 0268 1! one 
; 206 0269 1! SUC = data record successfully found, REC_ADDR point ing 
; 207 0270 1! to record in bucket referenced by CURBD 
; 208 0271 1! 
; 209 O5¢§ 7; ERRORS: 
; 210 0273 1! ; . 
; 4h Osee : CURBDB and NXTBDB (if appropriate) are released and zeroed 
; $15 0576 = RFA = bad bucket level (i.e, neq 0) 
: si 0277 1! RNF = record not found 
s 205 0278 1! DEL - record deleted | 
; 216 0279 1! RRV = record pointer mismatchs 
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} plus assorted 1/0 error codes 

! SIDE EFFECTS: 

i On any error condition, CURBDB is zeroed and bucket is released. 
No check made for RLSBKT errors. 
ie 


AP if blown across this routine. 
IRABC PTR_VBN J] is used if indirection taken, otherwise not 


ALOOP, 
BLOOP; 


BUILTIN 
AP; 


Pp 
FLAGS : BBLOCK; 


MACRO 
ERROR et + = 


ST = RMSERR(CODE); 
ee 


EXIF _LOCK_ORIG = 
IF .LOCK_ORIG 
THEN 


IF (BDB = .IRABCIRB$L_NXTBDB]) NEQ 0 
release the original bucket (NXTBDB) if it is still accessed 
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EG] 
RMSRLSBKT (0); 
IRABCIRBSL_NXTBDB) = 0; 
0 BDB = .IRABCIRB$L_CURBDB); 
} EXITLOOP 
44 ELSE 
65 ! If original bucket had been released, then put CURBDB 
oe ; back into BDB and continue. 
68 BDB = .IRABCIRB$L_CURBDB); %, 
70 ! Determine if byte or word record identifier, depending on prologue 
a ; version of file. 
18 co IRC$_RRV_ID = 
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; i p 0 3 (IF .IFABCIFBSB_PLG_VER] LSSU PLGSC_VER_ : 
: 8 M 9 -REC_ADDRCIRCS$B_RRV_ID] ; 
3 a M 0340 ELS : 
; A 0 ‘ -REC_ADDRCIRC$W_RRV_IDJ) %, : 
; 280 M 6 rk MAKE_ERR_PASS = : 
; 281 M 0344 BEGIN 3 
; o M 0345 : 
s <e M re) ' 2 is the error pass flag : 
; 284 M0347 2 ! : 
; +H M 0348 § LOOP_CONTROL = .LOOP_CONTROL OR 2; : 
; 286 M 0349 LEAVE BLOOP : 
; 287 0350 § END %, : 
; 288 0351 : 
> 289 M tit) 2 GO_INDIRECT = 3 
; 290 M0353 2 BEGIN : 
; 291 M ORee 3 LOOP_CONTROL = 1; ! set control flags to INDIRECT 3 
; 29 M 0355 PTR_TD = IRC$_RRV_ID; : 
: 29 M0356 2 PTR-VBN = .REC_PTR_VBN; ; 
: 294 Mm 0357 2 : 
3 295 M0358 2 IF .LOCK_ORIG ; 
: 296 M0359 2 THEN 3 
: 257 M0360 2 BEGIN : 
; 298 M0361 2 IRABCIRBSL_NXTBDB? = .BDB; : 
; 299 M tae) § IRABCIRB$B_CACHEFLGS] = CSHSM_NOWAIT; : 
; 300 M 036 LEAVE ALOOP : 
; 301 M0364 2 ND F 
3; wee M0365 2 ELS F 
; 303 mM 0366 ? LEAVE BLOOP : 
: 304 0367 2 END %, : 
3s 25 0368 2 : 
; 306 Mm 0369 2 PTR_VBN = : 
; 307 0370 2 IRABCIRB$L_PTR_VBN) %; 3 
; 308 0371 2 : 
; 309 0372 2 EXTERNAL REGISTER : 
: 310 0373 2 COMMON_RAB_STR, 3 
gs 31 0374 2 R_REC_ADDR_STR; 3 
; 312 0375 2 : 
3 3S 0376 2 GLOBAL REGISTER : 
; 314 0377 2 1DX_DFN_STR, ; 
; 315 0378 2 COMMON_IO"STR; ; 
3; 56 0379 2 3 
3 $16 0380 § LOCAL : 
; 318 0381 SAV_CFLAGS : BYTE, : 
; SW tet TMPT : BBLOCK (5); : 
: 320 038 ee : 
3 $5) Bane CHSFILL(0,5,1TMP1); ! initialize LOOP_CONTROL ; 
3 328 OsRS ; : Save cacheflags for future passes and set up index descriptor for key 0. : 
: 358 0388 SAV_CFLAGS = .]RABCIRB$B_CACHEFLGS); ° 
: 359 tt IRABCIRB$B_CACHEFLGS) = 0; : 
; 390 RMSKEY_DESC(0); : 
; 358 0391 : 
: $3 Baek DO 3 
; 330 039 ; 


. 
° 
. 
° 
. 
° 
. 
° 
. 
e 
. 
* 
. 
° 
. 
o 
. 
° 
. 
* 
. 
° 
. 
. 
. 
° 
. 
° 
. 
o 
. 
° 
. 
° 
o 
. 
o 
. 
. 
- 
@ 
° 
© 
. 
° 
. 
° 
. 
© 
. 
° 
. 
e 
. 
° 
+ 
° 
- 
° 
. 
° 
~ 
o 
° 
e 
. 
° 
. 
° 
. 
© 
. 
° 
. 
e 
. 
° 
. 
° 
° 
o 
e 
. 
. 
e 
. 
o 
. 
e 
. 
© 
. 
. 
. 
eo 
. 
. 
- 
° 
. 
° 
. 
e 
. 
° 
° 
o 
° 
. 
o 


oz 
og 


Ww 
SOOONAUNES WN OODNOAUE WI HOO ONOUE Wh 


WAWWAAANANAN IWAN 


HAVANA ES EEE EEE 


361 


377 


00000009 SiN 
LEARRAN 2S Se 


AAWAAANnwnw 


ow 


COODVWOOOCOCOCCOCO 


Sl el ek nk nk hk 


Oo 
ODODCDOCOCCOCOWOWOOOOO 


oo 
5 te 
WN — OOONAUE WN O OONA NEW -OOONOUS 


SOoooooooooo 
ar a a? ar bt et bt et et et et 
POPPIN 2 SY OD 


Soooococo 
, ak ek ek et ee 
ONOUE 


Fe oe ae oe oF oF oF ot ot hh dh ah Ah a ee eh a ee ak ee eh A Ah A Ah A Ah A ah Ah ah A ah Ae ee 


J 2 
16-Sep-1984 01:44:44 AX-11 Bliss-32 V4.0-742 
14-Sep-19 4 13:01:23 AMS .SRCIRM FNDRRV.B32; 1 


Leaving ALOOP causes another pass to be made with no additional action. 
ALOOP : 
CIRB$B_CACHEFLGS] = .IPABCIRBSB_CACHEFLGS] OR .SAV_CFLAGS; 


aving BLOOP releases the current BDB, resets cacheflags and makes 
other pass. 


ee —m 
ng =o 
So & 


BLOOP : — 


SIZE = .IDX_DFNCIDX$B_DATBKTSZ2)*512; 
IF _ INDIRECT 
RMSGETBKT(.PTR_VBN, .SIZE) 
RMSGETBKT(.VBN, .SIZE) 
END; 
c-" ST 


IF .LOCK_ORIG 


(.ST EQL RMSERR(RLK)) 
THEN 


One way to get an RLK error is when LOCK_ORIG caused the 
NOWAIT cacheflag to be set when aie an indirection. In 
that case 90 indirect ope’t without the NOWAIT set after 
ine ag he original bucket first. It will be picked up 
again later if the indirect pass its successful. 


CPs ccmsacncmen 
m 


GIN 
BDB = .IRABCIRBS$L_NXTBDBI; 
IRABCIRBS$L_NXTBDBI = 0; 
LEAVE BLOOP; 


END 
ELSE 


This is most likely a hardware failure so get out and make 
sure everything is released. 


Another possibility is that we encountered a RLK error when 
attempting to access a primary data bucket from a SIDR. In 
this case we want to just return the error status regardless 
if we were going indirect or direct at the time. 
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; 388 eee: BEGIN : 
; 389 126 : 
: 4 Be 27 if -LOCK_ORIG AND (BDB = .IRABCIRBSL_NXTBDBJ) NEQ 0 : 
: , Beee : EXITLOOP; ! causing NXTBDB to be released : 
; 394 pees IRABCIRB$L_CURBDB] = 0; : 
; 0458 RETURN .ST; F 
3 596 0459 $ 
. aw 8760 4 END; : 
; 398 461 4 : ; 
3 99 0462 4 ! The bucket is accessed successfully. Save the current BDB and 3 
; 400 0465 4 ! continue. ; 
: 401 0464 4 ! F 
; 40 0465 4 IRABCIRB$L_CURBDB) = .BDB; ; 
; 40 0466 4 : 
: 404 0467 4 ! x wee NOTE te | : 
; 405 0468 4 : that with reallocation of buckets to different Levels, : 
; 0469 4 ! it may be possible to get this condition on an indirect pass. This ; 
; 407 0470 4 ! is not currently implemented and therefore not currently checked for. $ 
; 408 0471 4 : : 
; 409 0472 4 : 
; 410 0473 4 IF .BKT_ADDRCBKT$B_LEVEL] NEQ 0 : 
; 611 0474 4 THEN 3 
s 612 0475 4 3 
; 413 0476 4 : Exit with RFA error, making sure that original bucket is released : 
; 4146 0477 & ! if indirection taken with LOCK_ORIG. 2 
> 415 0478 4 fe ; 
; 416 0479 5 REGIN $ 
; 417 0480 5 ST = RMSERR(RFA); 3 
; 418 0481 5 F 
; 419 0482 5 IF . INDIRECT F 
: 420 0485 5 THEN F 
: 421 0484 5 EXIF _LOCK_ORIG; : 
; 422 0485 5 3 
: 4235 0486 5 EXITLOOP; | : 
> 426 0487 5 : 
: 425 0488 4 END; 3 
; 426 0489 4 - : : 
: 427 0490 4 ! Load AP with the appropriate ID for the FIND_BY_ID search of this 3 
: 428 0491 4 ' bucket. 3 
; 429 0492 4 ! 3 
; 430 04935 4 3 
3; 431 0494 4 IF INDIRECT : 
; 432 0495 4 T 3 
; 433 0496 4 AP = .PTR_ID 3 
3; 434 0497 4 ELSE : 
; 435 0498 4 AP = .1D; : 
: 436 0499 4 3 
3: 437 0500 4 ST = RMSFIND_BY_IDQ); : 
3 $38 420) ? AP = 3; ! initialize for subsequent calls to RECORD_VBN : 
; 4640 0308 4 IF INDIRECT : 
3 441 504 4 THEN 3 
; ri 0505 4 : ; ape : 
3 44 0506 4 ! This code is executed on the indirect pass. In LOCK ORIG mode, : 
7 444 0507 4 ! an error condition will cause an exit if the original bucket is 3 
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v04~000 1e-Sep-1984 13:01:23  ERMS.SRCIRMSFADRRV.B32s 1 ran voi 
> 445 0508 4 ! still accessed. Otherwise, an error pass back to the original ‘ 
; 446 0509 4 ' bucket is made to confirm that the pointers to this bucket have : 
3 447 0510 4 ' not changed. : 
; 448 0511 4 : : 
; 449 R216 5 BEGIN : 
; 450 0513 5 LOOP_CONTROL = 0; ; 
3; 451 0514 5 ; 
; $26 0515 5 IF NOT .ST : 
> 45 0516 5 THEN : 
3 454 0517 6 BEG] : 
; 455 0518 6 EXIF LOCK ORIG; ; 
3 $28 0519 6 MAKE_ERR_PASS; 3 
3 66) bess 5 END; : 
; 458 0521 5 ; 
3 459 b25¢ 5 IF_ .REC_ADDRCIRC$V_DELETED) ; 
; 460 B25 5 THEN : 
; 461 0524 6 BEGIN : 
>; 46 0525 6 IND_DELETED = 1; ; 
; 46 0526 6 ST = RMSERR (DEL); : 
: 464 b255 6 EXIF LOCK ORIG; : 
: 465 0528 6 MAKE~ERR_PASS; : 
; 466 b263 5 END; ; 
; 467 0530 5 : 
; 468 0531 5 IF .REC_ADDRCIRCSV_RRV] ; 
; 469 0532 5 THEN : 
; 470 0533 6 BEGIN : 
; 471 0534 6 ST = RMSERR(RRV); ; 
> 472 0535 6 EXIF _LOCK_ORIG; ; 
: 473 0536 6 MAKE-ERR_PASS; ; 
> 474 0537 5 END; | ‘ 
; 475 0538 5 : 
; 476 0539 6 IF CIRC$_RRV_ID NEQ .ID) ; 
; 477 0540 5 R | : 
; 478 0541 6 (RMSRECORD_VBN() NEQ .VBN) ; 
; 479 0542 5 ; 
; 480 0543 6 | : 
; «4481 0544 6 ST = RMSERR(RRV); : 
3 482 0545 6 EXIF_LOCK_ORIG; ; 
; 483 0546 6 MAKE_ERR_PASS; : 
: 484 0547 5 3 : 
; «485 0548 5 : : 
; 486 0549 5 ! If we have gotten this far, we have successfully found the : 
: 487 0550 5 ! correct record taking the indirection. If LOCK_ORIG mode, we : 
; 488 0551 5 ! must get back the original bucket if we had to release it to get : 
3; 489 0552 5 ! this one, otherwise just exit (STATUS contains success). : 
; 490 0553 5 ; : 
; 491 0554 5 : 
; 492 0555 5 IF .LOCK_ORIG AND .IRABCIRBSL_NXTBDB) EQL 0 : 
3; 493 0556 5 THEN : 
3 494 0557 6 BEGIN : 
; 495 0558 6 IRABLIRB$B_CACHEFLGS) = .SAV CFLAGS; : 
: 496 0559 6 ST = RMSGETBKT(.VBN, .1DX_DFACIDX$B_DATBKTSZ3*512); ; 
: 497 0560 6 : 
3; 498 0561 6 IF _.ST : 
3; 499 b20¢ § THEN : 
; 500 056 BEGIN : 
3; 501 0564 7 IRABCIRBS$L_NXTBDB) = .BDB; : 
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RETURN .ST; 
END 
ELSE 
BDB = .JRABCIRBSL_CURBDBI; 
EXITLOOP; 
END; 
END 
£'SE 
nc J8@N ST; 
END; ! of INDIRECT pass code 


This is a direct pass, i.e., we are looking at the bucket described 
by the input VBN and [D. Note that not finding the original record 
if on an error pass is a bug for erecegus version 1, but may not be 
one if RRV's can be purged when the record is deleted. At any rate, 
I*m not checking for it. 


IF NOT .ST 
EN 
EX'TLOOP; 
- REC ADOC IRCEY SELETERS 
ERROR(DEL); 
BEGIN 


LOCAL 
REC_PTR_VBN; 


REC_PTR_VBN = RMSRECORD_VBN(); 
! If this is an error pass and the indirect pointers are still the 


same, then we have a real error, otherwise just go indirect and try 
! again. 
' 


IF _.ERROR_PASS 
THEN 
IF CPTR_ID EQL IRC$_RRV_ID) 
(.PTR_VBN EQL .REC_PTR_VBN) 
THEN 


IF _.IND_DELETED 
ERROR (DEL) 
LSE 


' If the RRV was deleted within a Recovery Unit (which has 
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since succesfully completed, or the primary data record 

this RRV petates at would not have been reclaimed), then 

reclaim the space it occupies (if the file has been gpen 

for write access) befor returning an error of RMSS$_DEL. 

REC_ADDRCIRC$V_RU_DELETE) 

BEGIN 

IF .IFABCIFBSV_WRTACC] 

RMSRU_RECLAIM(); 
ERROR(DEL); 
END 


ELSE 
ERROR (RRV) 
ELSE 


GO_INDIRECT; 
This is not an error pass so check if the record is an RRV. 


a et me me me em 


F.. 
HEN 


4 zREC_ADDRLIACSY ARV 
GO_INDIRECT; 
! Record is not an RRV, so if the back pointers match, this is the 
record we want, otherwise returr an RRV error. 
IF Fate EQL .1D) 
(.REC_PTR_VBN EQL .VBN) 
HEN 


BEGIN 
RETURN .ST; 
END 

ELSE 
ERROR (RRV) ; 


END; ! of block defining REC_PTR_VBN 
END; ! of BLOOP 


We have left BLOOP so release the bucket, reset cacheflags and go 
! again. 
' 


RMSRLSBKT(O); 

END ! of ALOOP 
UNTIL 0; ' an EXITLOOP or RETURN is the only way out 
This code executed on an EXITLOOP 


RMSRLSBKT(O); 
IRABCIRBSL_CURBDB) = 0; 
RETURN .ST 
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\v04-000\ 


RMSFIND_BY_ID, RMS$GETBKT 
RMSKEY_ BEST, RMSRECORD VBN 
RMSRLSBKT, RMSRU_RECLAIM 


RMSRMS3,NOWRT, GBL, PIC,2 


#°M<R2,R3,R4,R5,R7> 
#0. (SP), #0, #5, TMP1 


64(IRAB), SAV_CFLAGS 
64 (1RAB) 


-(SP) 
RMSKEY_DESC 

#4, SP 

SAV_CFLAGS, 64(IRAB) 
23(IDX_DFN), SIZE 
#9, SIZE, Siz 
THEI +4, iT} 
76(IRAB) 

4$ 

SIZE 

VBN 

RMS$GETBKT 

#8, SP 

RO, TMP1 

TMP1, 8$ 

FLAGS, 6$ 

INP T, #33450 
60(IRAB), BDB 
60(IRAB) 

39$ 

FLAGS, 6$ 
GOCIRAB) BDB 

41$ 


408 
BDB, 32(IRAB) 
12(BKT_ADDR) 


#-31140, TMP! 
TMP1+4, 7$ 
Aratt 7$ 
60(IRAB), BDB 
19$ 


18$ 
TMP1+4, 10$ 
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| . e 
04-000 ets rn eS a Pg Pay Pt 9° 02) 
51 04 00148 CLRL RY : 0611 
| 03 00B7 CA 91 O014A CMPB =s«183(IFAB), #3 : 
08 1E O014F BGEQU 26$ : 
1 06 0191 INCL 1 : 
| 50 02 Ab 9A 001 3 MOVZBL 2(REC_ADDR), RO : 
04 11 0015 BRB 7$ : 
50 03 Aé 3C 00159 368 MOVZWL 3(REC_ADDR), RO : 
50 02 AE Bi 0015D 278 CMPW TMP14+2, RO : 
1D 12 00161 BNEQ 30S : 
52 4C AD D1 00163 CMPL 76(IRAB), REC aes + 0613 
17 12 00167 BNEQ 30S ; 
0B 04 AE 0@ EO 00169 BBS ae. TMP : 0616 
| 64 64 E1 O16 BBC 4g Ree “ASDR) 38$ + 0627 
03 06 AA £9 0017 BLBC 6 ({IFAB), ~28$ > 0631 
00006 30 00176 BSBW Sse RMSRU RECCAIM + 0633 
6E 8262 8F BO 00179 28$: MOVW  #-32158, TMP1 + 0635 
65 11 OO17E 29$: BRB 40$ : 0629 
04 AE 01 90 00180 30$: # MOVB #1, TMP1+4 + 0639 
17 51 £9 00184 BLBC = R11. 33$ : 
OF 11 00187 BRB 3 ; 
2c 66 03 £1 00189 31$: BBC #3, (REC ;ADDR), 358 > 0645 
04 AE 01 90 0018D MOVB #1. TMP134 > 0646 
03 0087 CA 91 00191 CMPB TBS(IFAB) #3 ; 
06 1E 00196 BGEQU 33$ : 
50 02 Ad 9A 00198 32$:  MOVZBL (REC. ADDR), RO ; 
04 11 0019¢ BRB 4$ ; 
50 03 A6 3C 0019E 33%:  MOVZWL 3(REC_ADDR), RO : 
02 AE 50 BO O01A2 34$:  MOvW RO, TAPI+2 : 
4C Ad 52 DO 001A6 MOVL REC_PTR_VBN, 76(IRAB) ; 
2F 28 AE €9 OOTAA BLBC FLAGS, 39$ 3 
3c AD 54 DO OO1AE MOVL BbB. 60(1RAB) : 
40 Ad 02 90 001B2 MOVB #2, 64(IRAB) : 
FE63 31 001B6 BRW : | 
03 00B7 CA 91 00189 35$: CMPB Ss«aAB3(IFAB), #3 > 0653 
06 1€ 001BE BGEQU ; | 
50 02 Aé6 9A 001C0 MOVZBL 2(REC_ADDR), RO : 
04 11 001C4 BRB ; 
50 03 Ab 3C 001C6 36$:  MOVZWL 3(REC_ADDR), RO : 
24 «AE 50 D1 OO1CA 37$: CMPL =e RO, :IDB ; 
06 12 OO1CE BNEG 38 F 
20 AE 52 D1 00100 CMPL §_ REC_PTR_VBN, VBN : 0655 
1A 13 00104 BEQL : 
6E 8684 8F BO 001D6 38$:  MOVW  #-31100, TMP1 + 0662 
08 11 00108 BRB 408 : 
E 04 001DD 39% CLRL =( SP) : 0670 
00006 30 001DF BSBW  RMSRLSBKT ; 
FE34 31 OOiEe BRW 1$ ; 
7E D4 OO1ES 408 CLRL = (SP) > 0676 
00006 30 001E7 BSBW RMSRLSBKT ; 
SE 04 CO OO1EA ADDL2 4&4, : 
20 Ad b4 OO1ED 41$: CLRL 33 (RAB) : 0677 
50 BE 3C OO1FO 42$:  MOVZWL HPT AR RO : 0678 
5E 06 CO 001F3 ADDL2 #6, > 0680 
00Bc 4 =8F «OBA 001F6 POPR PoCRDR3.R4.RS.R7> : 
05 OO1FA RSB ; 


; Routine Size: 507 bytes, Routine Base: RM$RMS3 + 0000 
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' 

; 618 0681 1 

; 619 ee 1 END 

: 620 0685 1 

; 621 0684 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
RMSRMS5 507 NOVEC,NOWRT, RD, EXE,NOSHP, GBL, REL, CON, PIC.ALIGN(2) 


Library Statistics 


ee ee a eh ee Symbols -------- Pages Processing 

, File Total Loaded Percent Mapped Time 

: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 47 1 154 00:00.4 

bd COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INJTIAL,OPTIMIZE)/LIS=LIS$:RM3FNDRRV/OBJ=OBJ$:RM3FNDRRV MSRC$:RM3FNDRRV/UPDATE=(ENHS:RM3FNDRRV) 
Size: 507 code + 0 data bytes 
Run Time: 0:16.8 


Elapsed Time: 00: $3 2 
Lines/CPU Min: 244 
Lexemes/CPU-Min: 24935 
Memory Used: 247 pages 
Compication Complete 
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